0 PRINT"[147]"TAB(13)"TIME MACHINE"
1 REM =================================
2 REM    COMMODARES PROBLEM #48-3 :
3 REM      TIME MACHINE
4 REM    SOLUTION BY
5 REM      JIM SPEERS
6 REM =================================
100 PRINT"12[146] OR 24[146] HOUR TIME?": INPUT TM: IF TM<>12 AND TM<>24 THEN 100
110 B=1: E=12: F=720: IF TM=24 THEN B=0: E=23: F=1440
120 PRINT"[147]PRESENT TIME:[146]": (null)"0,.$"
130 PRINT"HOUR";: INPUT H: IF H<B OR H>E THEN 130
140 PRINT"MINUTE";: INPUT M: IF M<0 OR M>59 THEN 140
150 TM=H*60+M: PRINT"TIME DIFFERENCE(MIN)";: INPUT D: T1=TM-D: T2=TM+D
160 IF T1<0 THEN T1=T1+F: GOTO 160
170 IF T2>F THEN T2=T2-F: GOTO 170
180 X=T1: GOSUB 200: PRINT (null)"##:##";HR,MN
190 X=T2: GOSUB 200: PRINT (null)"##:##";HR,MN: END
200 HR=INT(X/60): MN=X-60*HR: IF HR=0 AND DE=12 THEN HR=12
205 IF HR=24 AND E=23 THEN HR=0
210 RETURN